home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / ply15dat.zip / NOISE3.PI < prev    next >
Text File  |  1992-09-19  |  1KB  |  65 lines
  1. // Generic Polyray input File
  2. // Polyray input file: Alexander Enzmann
  3.  
  4. // Set up the camera
  5. viewpoint {
  6.    from <0, 0, -8>
  7.    at <0,0,0>
  8.    up <0,1,0>
  9.    angle 45
  10.    resolution 160, 160
  11.    }
  12.  
  13. background <0, 0, 0>
  14. light <-10, 3, -20>
  15.  
  16. define turb_value (fmod(frame, 8) +1) * 0.5
  17. define octv_value (frame / 8) + 1
  18.  
  19. include "..\texture.inc"
  20.  
  21. // Simple color map texture
  22. define noise_texture0
  23. texture {
  24.    noise surface {
  25.       color white
  26.       position_fn position_plain
  27.       lookup_fn lookup_plain
  28.       octaves 6
  29.       turbulence 1
  30.       ambient 0.2
  31.       diffuse 0.8
  32.       specular 0.5
  33.       microfacet Reitz 10
  34.       color_map(
  35.          [0,   0.2, red,     orange]
  36.          [0.1, 0.3, orange,  blue]
  37.          [0.3, 0.5, blue,    skyblue]
  38.          [0.5, 0.7, skyblue, orange]
  39.          [0.7, 0.9, orange,  magenta]
  40.          [0.9, 1.0, magenta, red],
  41.          <1, 1, 1>)
  42.       }
  43.    scale <0.3, 0.3, 0.3>
  44.    }
  45.  
  46. define white_marble_texture
  47. texture {
  48.    noise surface {
  49.       color white
  50.       position_fn position_objectx
  51.       lookup_fn lookup_sawtooth
  52.       octaves octv_value
  53.       turbulence turb_value
  54.       ambient 0.2
  55.       diffuse 0.8
  56.       specular 0.3
  57.       microfacet Reitz 5
  58.       color_map(
  59.          [0.0, 0.8, <1, 1, 1>, <0.6, 0.6, 0.6>]
  60.          [0.8, 1.0, <0.6, 0.6, 0.6>, <0.1, 0.1, 0.1>])
  61.       }
  62.    }
  63.  
  64. object { sphere <0, 0, 0>, 2 noise_texture0 }
  65.